perm filename MAKTAB.SAI[S,AIL] blob
sn#000841 filedate 1972-02-24 generic text, type T, neo UTF8
COMMENT ⊗ VALID 00003 PAGES VERSION 3-3(2)
RECORD PAGE DESCRIPTION
00001 00001
00002 00002 HISTORY
00003 00003 BEGIN "MAKE TABLE"
00009 ENDMK
⊗;
COMMENT ⊗HISTORY
AUTHOR,SAIL,REASON
025 300300000002 ⊗;
COMMENT ⊗
VERSION 3-3(2) 2-6-72 BY DCS BUG #GN# INCLUDE UUOS, FIX BUGS IN START_CODE OPCODES
VERSION 3-3(1) 12-2-71 BY DCS INSTALL VERSION NUMBER
⊗;
BEGIN "MAKE TABLE"
DEFINE VERSION_NUMBER = "'300300000002";
INTEGER I,J,K,L;
DEFINE SIZE="'1000";
DEFINE SIZE1="SIZE-'40";
PRELOAD_WITH
"CALL","INIT",[5]NULL,"CALLI",
"OPEN","TTCALL",[3]NULL,"RENAME","IN","OUT",
"SETSTS","STATO","GETSTS","STATZ","INBUF","OUTBUF","INPUT","OUTPUT",
"CLOSE","RELEASE","MTAPE","UGETF","USETI","USETO","LOOKUP","ENTER",
['30] NULL,
"UFA","DFN","FSC","IBP","ILDB","LDB","IDPB","DPB",
"FAD","FADL","FADM","FADB","FADR","FADRI","FADRM","FADRB",
"FSB","FSBL","FSBM","FSBB","FSBR","FSBRI","FSBRM","FSBRB",
"FMP","FMPL","FMPM","FMPB","FMPR","FMPRI","FMPRM","FMPRB",
"FDV","FDVL","FDVM","FDVB","FDVR","FDVRI","FDVRM","FDVRB",
"MOVE","MOVEI","MOVEM","MOVES","MOVS","MOVSI","MOVSM","MOVSS",
"MOVN","MOVNI","MOVNM","MOVNS","MOVM","MOVMI","MOVMM","MOVMS",
"IMUL","IMULI","IMULM","IMULB","MUL","MULI","MULM","MULB",
"IDIV","IDIVI","IDIVM","IDIVB","DIV","DIVI","DIVM","DIVB",
"ASH","ROT","LSH","JFFO","ASHC","ROTC","LSHC","",
"EXCH","BLT","AOBJP","AOBJN","JRST","JFCL","XCT","" ,
"PUSHJ","PUSH","POP","POPJ","JSR","JSP","JSA","JRA",
"ADD","ADDI","ADDM","ADDB","SUB","SUBI","SUBM","SUBB",
"CAI","CAIL","CAIE","CAILE","CAIA","CAIGE","CAIN","CAIG",
"CAM","CAML","CAME","CAMLE","CAMA","CAMGE","CAMN","CAMG",
"JUMP","JUMPL","JUMPE","JUMPLE","JUMPA","JUMPGE","JUMPN","JUMPG",
"SKIP","SKIPL","SKIPE","SKIPLE","SKIPA","SKIPGE","SKIPN","SKIPG",
"AOJ","AOJL","AOJE","AOJLE","AOJA","AOJGE","AOJN","AOJG",
"AOS","AOSL","AOSE","AOSLE","AOSA","AOSGE","AOSN","AOSG",
"SOJ","SOJL","SOJE","SOJLE","SOJA","SOJGE","SOJN","SOJG",
"SOS","SOSL","SOSE","SOSLE","SOSA","SOSGE","SOSN","SOSG",
"SETZ","SETZI","SETZM","SETZB","AND","ANDI","ANDM","ANDB",
"ANDCA","ANDCAI","ANDCAM","ANDCAB","SETM","SETMI","SETMM","SETMB",
"ANDCM","ANDCMI","ANDCMM","ANDCMB","SETA","SETAI","SETAM","SETAB",
"XOR","XORI","XORM","XORB","IOR","IORI","IORM","IORB",
"ANDCB","ANDCBI","ANDCBM","ANDCBB","EQV","EQVI","EQVM","EQVB",
"SETCA","SETCAI","SETCAM","SETCAB","ORCA","ORCAI","ORCAM","ORCAB",
"SETCM","SETCMI","SETCMM","SETCMB","ORCM","ORCMI","ORCMM","ORCMB",
"ORCB","ORCBI","ORCBM","ORCBB","SETO","SETOI","SETOM","SETOB",
"HLL","HLLI","HLLM","HLLS","HRL","HRLI","HRLM","HRLS",
"HLLZ","HLLZI","HLLZM","HLLZS","HRLZ","HRLZI","HRLZM","HRLZS",
"HLLO","HLLOI","HLLOM","HLLOS","HRLO","HRLOI","HRLOM","HRLOS",
"HLLE","HLLEI","HLLEM","HLLES","HRLE","HRLEI","HRLEM","HRLES",
"HRR","HRRI","HRRM","HRRS","HLR","HLRI","HLRM","HLRS",
"HRRZ","HRRZI","HRRZM","HRRZS","HLRZ","HLRZI","HLRZM","HLRZS",
"HRRO","HRROI","HRROM","HRROS","HLRO","HLROI","HLROM","HLROS",
"HRRE","HRREI","HRREM","HRRES","HLRE","HLREI","HLREM","HLRES",
"TRN","TLN","TRNE","TLNE","TRNA","TLNA","TRNN","TLNN",
"TDN","TSN","TDNE","TSNE","TDNA","TSNA","TDNN","TSNN",
"TRZ","TLZ","TRZE","TLZE","TRZA","TLZA","TRZN","TLZN",
"TDZ","TSZ","TDZE","TSZE","TDZA","TSZA","TDZN","TSZN",
"TRC","TLC","TRCE","TLCE","TRCA","TLCA","TRCN","TLCN",
"TDC","TSC","TDCE","TSCE","TDCA","TSCA","TDCN","TSCN",
"TRO","TLO","TROE","TLOE","TROA","TLOA","TRON","TLON",
"TDO","TSO","TDOE","TSOE","TDOA","TSOA","TDON","TSON",
NULL,"DPYCLR","PPIOT","UPGIOT","UINBF","UOUTBF","FBREAD","FBWRT",
"MAIL","PTYUUO","POINTS","UPGMVE","UPGMVM","PGIOT","CHNSTS","CLKUUO",
"INTMSK","IMSKST","IMSKCL","INTUUO";
STRING ARRAY INP[1:SIZE]; INTEGER ARRAY OUTP[1:SIZE];
FOR I←1 STEP 1 UNTIL SIZE1 DO
OUTP[I]←CVSIX(INP[I]);
OPEN(1,"DSK",'17,0,0,0,J,J);
ENTER(1,"1OPS1.OPS",J);
ARRYOUT(1,OUTP[1],SIZE);
RELEASE(1);
END "MAKE TABLE";